home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc iii 85.d64 / drink & drive.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  82 lines
  1. 5 FORO=1TO20
  2. 10 PRINT"[147][158]DRINK AND DRIVE RATER"
  3. 20 PRINT"BY J.L. SMITH
  4. 30 [143]498 GUY, TWO MOUNTAINS, QUEBEC J7R 1V8
  5. 32 [129]I[178]1[164]10:[130]
  6. 33 [153]"DRINK AND DRIVE RATER"
  7. 34 [153]"   BY J.L. SMITH
  8. 35 FORI=1TO10:NEXT:NEXT
  9. 40 PRINT"[147]DRINK & DRIVE RATER"
  10. 50 INPUT"M[146]ALE OR F[146]EMALE";S$:IFS$="M"THENSE$=" MALE"
  11. 60 INPUT"WEIGHT(LBS.)";W :IFS$="F"THENSE$=" FEMALE"
  12. 65 PRINT"ONE DRINK EQUALS-
  13. 66 [153]"1 1/2 OUNCES OF HARD LIQUOR"
  14. 67 [153]"12 OUNCE BOTTLE BEER (NORMAL)
  15. 68 PRINT"5 OUNCE WINEHIT ANY KEY-"       "
  16. 69 [161]A$:[139]A$[178]""[167]69
  17. 70 [153]"LOAD"  SE$"           "W" POUNDS"
  18. 80 [153]"BASED ON A MAXIMUM LIMIT FOR DRIVING OF .08% CONCENTRATION OF BLOOD ALCOHOL
  19. 85 PRINT"1. MAXIMUM NUMBER OF DRINKS IN X HOURS"
  20. 90 PRINT"2. HOURS TO WAIT AFTER X DRINKS"
  21. 100 PRINT"3. MAXIMUM NUMBER OF DRINKS IN 1 HOUR"
  22. 105 PRINT"4. CALCULATE BLOOD ALCOHOL LEVEL"
  23. 106 PRINT"5. NEW PERSON "
  24. 110 INPUT"ENTER NUMBER";N
  25. 120 ONNGOSUB1000,2000,3000,4000,5000
  26. 130 GOTO70
  27. 1000 PRINT"[147]MAXIMUM NUMBER OF DRINKS"
  28. 1010 INPUT"OVER HOW MANY HOURS";H:IFS$="F"THEN1100
  29. 1011 X=W/100:FT=.043/X
  30. 1020 IFS$="M"THENT=.08/FT+.015/FT*H
  31. 1030 T%=T*10:T=T%/10   :PRINT""T"DRINKS IN "H" HOURS":FA%=T/H*10:FA=FA%/10
  32. 1040 PRINT"OR "FA" PER HOUR"
  33. 1045 PRINT"HIT ANY KEY"
  34. 1050 GETA$:IFA$=""THEN1050
  35. 1099 RETURN
  36. 1100 X=W/100:FT=.050/X
  37. 1120 T=.08/FT+.015/FT*H
  38. 1130 T%=T*10:T=T%/10   :PRINT""T"DRINKS IN "H" HOURS":FA%=T/H*10:FA=FA%/10
  39. 1140 PRINT"OR "FA" PER HOUR"
  40. 1145 PRINT"HIT ANY KEY"
  41. 1150 GETA$:IFA$=""THEN1150
  42. 1999 RETURN
  43. 2000 PRINT"[147]HOURS TO WAIT"
  44. 2010 INPUT"NUMBER IF DRINKS";ND :IFS$="F"THEN2500
  45. 2030 NH=((.043*100/W)*ND-.08)/.015
  46. 2032 PRINT"FOR A BLOOD ALCOHOL LEVEL OF .08% THEN  YOU MUST WAIT "NH" HOURS."
  47. 2035 PRINT"SINCE YOUR FIRST DRINK."
  48. 2040 PRINT"HIT ANY KEY"
  49. 2050 GETA$:IFA$=""THEN2050
  50. 2499 RETURN
  51. 2500 NH=((.050*100/W)*ND-.08)/.015
  52. 2532 PRINT"FOR A BLOOD ALCOHOL LEVEL OF .08% THEN  YOU MUST WAIT "NH" HOURS."
  53. 2535 PRINT"SINCE YOUR FIRST DRINK."
  54. 2540 PRINT"HIT ANY KEY"
  55. 2550 GETA$:IFA$=""THEN2550
  56. 2999 RETURN
  57. 3000 PRINT"[147]MAMIMUM DRINKS IN ONE HOUR"
  58. 3010 IFS$="M"THENPRINT"ARE ".08/(.043/(W/100))
  59. 3020 IFS$="F"THENPRINT"ARE ".08/(.050/(W/100))
  60. 3040 PRINT"HIT ANY KEY"
  61. 3050 GETA$:IFA$=""THEN3050
  62. 3999 RETURN
  63. 4000 PRINT"[147]BLOOD ALCOHOL LEVEL"
  64. 4010 INPUT"NUMBER IF DRINKS";ND
  65. 4020 INPUT"NUMBER OF HOURS";NH:IFS$="F"THEN4500
  66. 4030 BA=(.043*100/W)*ND-(NH*.015):B%=BA*1000:BA=B%/1000
  67. 4032 PRINT"BLOOD ALCOHOL LEVEL ="BA"%"
  68. 4033 BL=(BA-.08)/.015:BL%=BL*10:BL=BL%/10
  69. 4034 IFBA>.08THENPRINT"YOU MUST NOT DRIVE FOR "BL" HOURS"
  70. 4040 PRINT"HIT ANY KEY"
  71. 4050 GETA$:IFA$=""THEN4050
  72. 4499 RETURN
  73. 4500 BA=(.050*100/W)*ND-(NH*.015):B%=BA*1000:BA=B%/1000
  74. 4532 PRINT"BLOOD ALCOHOL LEVEL ="BA
  75. 4533 BL=(BA-.08)/.015:BL%=BL*10:BL=BL%/10
  76. 4534 IFBA>.08THENPRINT"YOU MUST NOT DRIVE FOR "BL" HOURS"
  77. 4540 PRINT"HIT ANY KEY"
  78. 4550 GETA$:IFA$=""THEN4550
  79. 4600 RETURN
  80. 4999 RETURN
  81. 5000 RUN
  82.